home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D1.D64 / disk commands (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.2 KB  |  82 lines
  1. 10 REM******************************
  2. 20 REM
  3. 30 REM    DISK COMMANDS DEMO PROGS
  4. 40 REM
  5. 50 REM******************************
  6. 60 REM
  7. 100 PRINT "[147]"
  8. 110 PRINT:PRINT TAB(10);"DIRECT ACCESS DEMO"
  9. 120 PRINT:PRINT TAB(10);"[158]1.  PROGRAM TRACE"
  10. 130 PRINT:PRINT TAB(10);"2.  READ NAME"
  11. 140 PRINT:PRINT TAB(10);"3.  CHANGE NAME"
  12. 150 PRINT:PRINT TAB(10);"4.  SHOW BYTES FREE"
  13. 160 PRINT:PRINT TAB(10);"5.  READ NAME(AGAIN)
  14. 165 [153]:[153]
  15. 170 [161] I$:[139] I$[178]"" [167] 170
  16. 180 [139] I$[179]"1" [176] I$[177]"5"[167] 170
  17. 190 [145] [197](I$) [141] 500,600,700,800,900
  18. 192 [153]:[153] [163]10);"ANY KEY TO CONTINUE"
  19. 195 [161] I$:[139] I$[178]"" [167] 195
  20. 200 [137] 100
  21. 493 [143]
  22. 495 [143] READ LINKS
  23. 497 [143]
  24. 500 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
  25. 510 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
  26. 520 [133] "TRACK AND SECTOR PLEASE";TR,SE
  27. 530 [152]8,"U1:"4;0;TR;SE:[143] READ CONTENTS OF TRACK/SECTOR INTO BUFFER
  28. 540 [161]#4,T$,S$:[143] READ FIRST TWO BYTES INTO BUFFER
  29. 550 TR[178][198](T$[170][199](0)):SE[178][198](S$[170][199](0)):[143] MAKE SURE VALUE IS INTEGER
  30. 560 [139] TR[178]0 [167] [160] 4:[160] 8:[142]:[143] END OF LINKS
  31. 570 [153] "TRACK NUMBER IS: ";TR;" SECTOR IS: ";SE
  32. 580 [137] 530:[143] GET NEXT LINK
  33. 590 [143]
  34. 593 [143]  READ DISK NAME
  35. 595 [143]
  36. 600 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
  37. 610 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
  38. 620 [152]8,"U1:"4;0;18;0:[143] READ CONTENTS OF DESIRED TRACK/SECTOR
  39. 630 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO READ FROM
  40. 635 [153] "DISK NAME: ";
  41. 640 [129] X[178]1 [164] 16:[143] LENGTH OF FILENAME
  42. 650 [161]#4,X$:[139] X$[178][199](160)[167] 670:[143] IF SHIFTED SPACE END
  43. 660 [153] X$;:[130]:  [143] PRINT OUT AND GET NEXT LETTER
  44. 670 [153]:[160] 4:[160] 8:[143] END
  45. 680 [142]
  46. 690 [143]
  47. 695 [143] CHANGE NAME
  48. 697 [143]
  49. 700 [159] 8,8,15:[143] OPEN THE COMMAND CHANNEL
  50. 710 [159] 4,8,4,"#":[143] OPEN DIRECT ACCESS FILE
  51. 720 [152]8,"U1:"4;0;18;0:[143] READ CONTENTS OF DESIRED TRACK/SECTOR
  52. 730 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO READ FROM
  53. 732 [153] "OLD NAME: ";
  54. 735 [129] X[178]1 [164] 16:[161]#4,X$:[139] X$[178][199](160) [167] X[178]16:[137] 739
  55. 737 [153] X$;
  56. 739 [130] X:[153]:[153]
  57. 740 [133] "ENTER NEW NAME";X$:[139] [195](X$)[177]16 [167] 740
  58. 750 [139] [195](X$)[179]16[167] X$[178]X$[170][199](160):[137] 750:[143] PAD OUT NAME
  59. 755 [152]8,"B-P:"4;144:[143] POINT TO WHERE YOU WANT TO WRITE TO
  60. 760 [152]4,X$;:[143] CHANGE BUFFER CONTENTS
  61. 770 [152]8,"U2:"4;0;18;0:[143] WRITE BACK TO DISK
  62. 780 [152]8,"I":[160] 4:[160] 8:[142]
  63. 790 [143]
  64. 795 [143] FREE BYTES
  65. 797 [143]
  66. 800 [159] 8,8,15
  67. 810 [152]8,"M-R"[199](250)[199](2)
  68. 820 [161]#8,X$:[139] X$[178]"" [167] X$[178][199](0)
  69. 830 [152]8,"M-R"[199](252)[199](2)
  70. 840 [161]#8,Y$:[139] Y$[178]""[167] Y$[178][199](0)
  71. 850 [153] [198](X$)[170]256[172][198](Y$);" BLOCKS FREE"
  72. 860 [160] 8:[142]
  73. 890 [143]
  74. 895 [143] DISK NAME 2
  75. 897 [143]
  76. 900 [159] 8,8,15
  77. 910 [152]8,"M-R"[199](144)[199](7)[199](16)
  78. 920 [132]8,X$
  79. 930 [153] "DISK NAME: ";X$
  80. 940 [160] 8
  81. 950 [142]
  82.